library(ggplot2)
library(plotly)

Data

library(readr)
adcm <- read_csv("https://raw.githubusercontent.com/RhoInc/data-library/master/data/clinical-trials/adam/adcm.csv")
Rows: 353 Columns: 27
── Column specification ────────────────────────────────────────────────────────────────
Delimiter: ","
chr  (15): USUBJID, SITE, SITEID, SEX, RACE, ARM, ARMCD, SBJTSTAT, SAFFL, CMTRT, PRE...
dbl   (8): AGE, RFENDY, SAFFN, ASEQ, ASTDY, AENDY, CMDOSE, CMSEQ
date  (4): RFSTDTC, RFENDTC, ASTDT, AENDT

ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
adae
NA

data viz

p <-ggplot(adae) +
  aes(x = AESEV, y = AGE, fill = SEX) +
  geom_boxplot(shape = "circle") +
  scale_fill_hue(direction = 1) +
  theme_minimal()

ggplotly(p)
NA

plotly

Add a new chunk by clicking the Insert Chunk button on the toolbar or by pressing Ctrl+Alt+I.

When you save the notebook, an HTML file containing the code and output will be saved alongside it (click the Preview button or press Ctrl+Shift+K to preview the HTML file).

The preview shows you a rendered HTML copy of the contents of the editor. Consequently, unlike Knit, Preview does not run any R code chunks. Instead, the output of the chunk when it was last run in the editor is displayed.

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQpgYGB7cn0KCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShwbG90bHkpCgpgYGAKCkRhdGEKYGBge3J9CmxpYnJhcnkocmVhZHIpCmFkY20gPC0gcmVhZF9jc3YoImh0dHBzOi8vcmF3LmdpdGh1YnVzZXJjb250ZW50LmNvbS9SaG9JbmMvZGF0YS1saWJyYXJ5L21hc3Rlci9kYXRhL2NsaW5pY2FsLXRyaWFscy9hZGFtL2FkY20uY3N2IikKCmFkYWUKCmBgYAoKZGF0YSB2aXoKYGBge3J9CnAgPC1nZ3Bsb3QoYWRhZSkgKwogIGFlcyh4ID0gQUVTRVYsIHkgPSBBR0UsIGZpbGwgPSBTRVgpICsKICBnZW9tX2JveHBsb3Qoc2hhcGUgPSAiY2lyY2xlIikgKwogIHNjYWxlX2ZpbGxfaHVlKGRpcmVjdGlvbiA9IDEpICsKICB0aGVtZV9taW5pbWFsKCkKCmdncGxvdGx5KHApCgpgYGAKCgoKCnBsb3RseQpgYGB7cn0KCmBgYAoKCgpBZGQgYSBuZXcgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpJbnNlcnQgQ2h1bmsqIGJ1dHRvbiBvbiB0aGUgdG9vbGJhciBvciBieSBwcmVzc2luZyAqQ3RybCtBbHQrSSouCgpXaGVuIHlvdSBzYXZlIHRoZSBub3RlYm9vaywgYW4gSFRNTCBmaWxlIGNvbnRhaW5pbmcgdGhlIGNvZGUgYW5kIG91dHB1dCB3aWxsIGJlIHNhdmVkIGFsb25nc2lkZSBpdCAoY2xpY2sgdGhlICpQcmV2aWV3KiBidXR0b24gb3IgcHJlc3MgKkN0cmwrU2hpZnQrSyogdG8gcHJldmlldyB0aGUgSFRNTCBmaWxlKS4KClRoZSBwcmV2aWV3IHNob3dzIHlvdSBhIHJlbmRlcmVkIEhUTUwgY29weSBvZiB0aGUgY29udGVudHMgb2YgdGhlIGVkaXRvci4gQ29uc2VxdWVudGx5LCB1bmxpa2UgKktuaXQqLCAqUHJldmlldyogZG9lcyBub3QgcnVuIGFueSBSIGNvZGUgY2h1bmtzLiBJbnN0ZWFkLCB0aGUgb3V0cHV0IG9mIHRoZSBjaHVuayB3aGVuIGl0IHdhcyBsYXN0IHJ1biBpbiB0aGUgZWRpdG9yIGlzIGRpc3BsYXllZC4K